﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
response.ContentType="text/xml"
response.Buffer="false"
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="conn.inc.asp" -->
<!--#include file="client_inc/common.function.asp" -->
<!--#include file="client_inc/common.class.asp" -->
<!--#Include file="client_inc/sqlsecure.asp"-->
<!--#Include file="asp/sitemap.asp"-->
<%
Dim sys_domainurl,sys_today,sys_lastmod_y,sys_lastmod_ym,sys_lastmod_ymd,sys_lastmod_ymdhhmm,sys_lastmod_ymdhhmmss, ntime,y,m,d,hh,mm,ss
sys_domainurl="http://"&Request.ServerVariables("SERVER_NAME")
ntime=Now()
y=Year(ntime)
m=CStr(Month(ntime))
d=CStr(Day(ntime))
hh=CStr(Hour(ntime))
mm=CStr(minute(ntime))
ss=CStr(second(ntime))
If Len(m)=1 Then m="0"&m
If Len(d)=1 Then d="0"&d
If Len(hh)=1 Then hh="0"&hh
If Len(mm)=1 Then mm="0"&mm
If Len(ss)=1 Then ss="0"&ss
sys_lastmod_y=y
sys_lastmod_ym=y&"-"&m
sys_lastmod_ymd=y&"-"&m&"-"&d
sys_lastmod_ymdhhmm=y&"-"&m&"-"&d&"T"&hh&":"&mm
sys_lastmod_ymdhhmmss=y&"-"&m&"-"&d&"T"&hh&":"&mm&":"&ss
Call Sitemap(0)
Call Terminal()
%>